Исходный текст

Option Explicit
Call CreateComment()

'=====================================================================
' Добавить комментарий к выбранному пользователю
'=====================================================================
Sub CreateComment()

        Dim SelUserDlg, InputDlg, NewComment, RetVal, str, user
        
        ' Открыть диалог выбора пользователя
        Set SelUserDlg = ThisApplication.Dialogs.SelectUserDlg
        RetVal = SelUserDlg.Show
        
        'Если диалог отменен или пользователь не выбран, закончить работу
        If (SelUserDlg.Users.Count=0) Or (RetVal <> TRUE) Then Exit Sub
        
        'Получить ссылку на первого выбранного пользователя
        Set user =  SelUserDlg.Users(0)
        
        ' Открыть диалог для ввода текста комментария
        Set InputDlg = ThisApplication.Dialogs.SimpleEditDlg
        InputDlg.Caption = "Ввод комментария для " & user.Description
        InputDlg.Prompt = "Текст:"
        RetVal = InputDlg.Show
        
        
        'Дадим возможность создания комментария рядовому пользователю
        ThisScript.SysAdminModeOn        
        
        'Добавлять комментарии к пользователю, пока не будет введена 
        'пустая строка или нажат Cancel
        str = InputDlg.Text
        While (RetVal <> False) And (str <> "") 
                
                ' Добавить комментарий к выбранному пользователю
                Set NewComment = user.Comments.Create
                NewComment.Text = str
                
                'Продолжать запрос ввода
                InputDlg.Text = ""
                RetVal = InputDlg.Show
                str = InputDlg.Text
        Wend
        'Отключить режим системного администратора
        ThisScript.SysAdminModeOff        
End Sub
'=====================================================================